home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / AIRPLANE_AVOIDCOLLISION.TCL < prev    next >
Encoding:
Text File  |  2000-09-15  |  4.9 KB  |  182 lines
  1. new nroot airplane/avoidcollision
  2. sel airplane/avoidcollision
  3.  
  4. # --------------------------------------------------------------------
  5. # Hier geht es nur um Ausweichen. Ich liefere mal vom Modul bevorzugte
  6. # Richtungen, wie immer die auch berechnet wurden, und richte mich danach.
  7. # Es gibt eine Unterscheidung nach grossen und kleinen Hindernissen
  8. # --------------------------------------------------------------------
  9. new ncommandlist avoidleftbig
  10. avoidleftbig.setadjusttype    horimaneuver
  11. avoidleftbig.settestcommand   aacleftbig_test
  12. avoidleftbig.addcommand true -100 0 0 false 0 0 0 nothing 2.5
  13.  
  14. proc aacleftbig_test {} { 
  15.  
  16.     if {[.getavoidcollisionkind] == "big"} {
  17.         if {[.getavoidcollisiondirection] == "left"} {
  18.             return 1.0
  19.         } else {
  20.             return 0.0
  21.         }
  22.     } else {
  23.         return 0.0
  24.     }
  25. }
  26.  
  27. new ncommandlist avoidrightbig
  28. avoidrightbig.setadjusttype    horimaneuver
  29. avoidrightbig.settestcommand   aacrightbig_test
  30. avoidrightbig.addcommand true 100 0 0 false 0 0 0 nothing 2.5
  31.  
  32. proc aacrightbig_test {} { 
  33.  
  34.     if {[.getavoidcollisionkind] == "big"} {
  35.         if {[.getavoidcollisiondirection] == "right"} {
  36.             return 1.0
  37.         } else {
  38.             return 0.0
  39.         }
  40.     } else {
  41.         return 0.0
  42.     }
  43. }
  44.  
  45. new ncommandlist avoidupbig
  46. avoidupbig.setadjusttype    horimaneuver
  47. avoidupbig.settestcommand   aacupbig_test
  48. avoidupbig.addcommand true 0 100 -50 false 0 0 0 nothing 2.5
  49.  
  50. proc aacupbig_test {} { 
  51.  
  52.     if {[.getavoidcollisionkind] == "big"} {
  53.         if {[.getavoidcollisiondirection] == "up"} {
  54.             return 1.0
  55.         } else {
  56.             return 0.0
  57.         }
  58.     } else {
  59.         return 0.0
  60.     }
  61. }
  62.  
  63. new ncommandlist avoiddownbig
  64. avoiddownbig.setadjusttype    horimaneuver
  65. avoiddownbig.settestcommand   aacdownbig_test
  66. avoiddownbig.addcommand true 0 -100 -50 false 0 0 0 nothing 2.5
  67.  
  68. proc aacdownbig_test {} { 
  69.  
  70.     if {[.getavoidcollisionkind] == "big"} {
  71.         if {[.getavoidcollisiondirection] == "down"} {
  72.             return 1.0
  73.         } else {
  74.             return 0.0
  75.         }
  76.     } else {
  77.         return 0.0
  78.     }
  79. }
  80.  
  81. # ------ und nun das ganze nochmal fuer die "kleinen" Hindernisse ------
  82.  
  83. new ncommandlist avoidleftsmall
  84. avoidleftsmall.setadjusttype    horimaneuver
  85. avoidleftsmall.settestcommand   aacleftsmall_test
  86. avoidleftsmall.addcommand true -100 0 0 false 0 0 0 nothing 1.0
  87.  
  88. proc aacleftsmall_test {} { 
  89.  
  90.     if {[.getavoidcollisionkind] == "small"} {
  91.         if {[.getavoidcollisiondirection] == "left"} {
  92.             return 1.0
  93.         } else {
  94.             return 0.0
  95.         }
  96.     } else {
  97.         return 0.0
  98.     }
  99. }
  100.  
  101. new ncommandlist avoidrightsmall
  102. avoidrightsmall.setadjusttype    horimaneuver
  103. avoidrightsmall.settestcommand   aacrightsmall_test
  104. avoidrightsmall.addcommand true 100 0 0 false 0 0 0 nothing 1.0
  105.  
  106. proc aacrightsmall_test {} { 
  107.  
  108.     if {[.getavoidcollisionkind] == "small"} {
  109.         if {[.getavoidcollisiondirection] == "right"} {
  110.             return 1.0
  111.         } else {
  112.             return 0.0
  113.         }
  114.     } else {
  115.         return 0.0
  116.     }
  117. }
  118.  
  119. new ncommandlist avoidupsmall
  120. avoidupsmall.setadjusttype    horimaneuver
  121. avoidupsmall.settestcommand   aacupsmall_test
  122. avoidupsmall.addcommand true 0 100 -50 false 0 0 0 nothing 1.0
  123.  
  124. proc aacupsmall_test {} { 
  125.  
  126.     if {[.getavoidcollisionkind] == "small"} {
  127.         if {[.getavoidcollisiondirection] == "up"} {
  128.             return 1.0
  129.         } else {
  130.             return 0.0
  131.         }
  132.     } else {
  133.         return 0.0
  134.     }
  135. }
  136.  
  137. new ncommandlist avoiddownsmall
  138. avoiddownsmall.setadjusttype    horimaneuver
  139. avoiddownsmall.settestcommand   aacdownsmall_test
  140. avoiddownsmall.addcommand true 0 -100 -50 false 0 0 0 nothing 1.0
  141.  
  142. proc aacdownsmall_test {} { 
  143.  
  144.     if {[.getavoidcollisionkind] == "small"} {
  145.         if {[.getavoidcollisiondirection] == "down"} {
  146.             return 1.0
  147.         } else {
  148.             return 0.0
  149.         }
  150.     } else {
  151.         return 0.0
  152.     }
  153. }
  154.  
  155. #--------------------------------------------------------------
  156. # Ausnahmebehandlung: Anscheinend passiert folgende Situation: 
  157. # eine erwartete Kollision bringt uns in den zustand, aber dann
  158. # wurde das Modul schon wieder getriggert ohne eine Kollision
  159. # zu melden. Dafuer machen wir noch ein kurzes Script.
  160. # Ausserdem, und das wird der hauptgrund sein, wird zwar der
  161. # Zustand nach abarbeitung der ersten Liste abgebrochen, aber
  162. # das Modul such noch eine weitere Liste. Also bieten wir eine, 
  163. # auch wenn diese im naechsten Frame abgeschalten wird.
  164. #--------------------------------------------------------------
  165. new ncommandlist avoidnothing
  166. avoidnothing.setadjusttype    horimaneuver
  167. avoidnothing.settestcommand   aacnothing_test
  168. avoidnothing.addcommand true 0 0 -100 false 0 0 0 nothing 1.0
  169.  
  170. proc aacnothing_test {} { 
  171.  
  172.     if {[.getavoidcollisionkind] == "nothing"} {
  173.         return 1.0
  174.     } else {
  175.         return 0.0
  176.     }
  177. }
  178.  
  179. sel ..
  180. sel ..
  181.  
  182.